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COPY(LBUFFL? J» TEXTARRAYC2*REGBASE+(VAL DIV 1o))s 00416000. as cease taser latin Sita seas ot 
END3 00417000 
% 00418000 @ 
4 PRINTADDRESS PRINTS THE AUDRESS USED 3Y AN OPERATOR OF 00420000,.—=—“Ci<C“iCi<i<i<iCiC; 727 3A!” _ 
% SIZE SZ AND OPERATION CODE OF WHAT. 00421000 “@ 
PRUCEDURE PRINTADDRESS(WHAT#SZ)3 00423000 
VALUE WHAT#SZ3 00424000 “@ 
BEGIN 00426000 i 
IF SZ = 3 THEN COPYCLBUFFL7]*HEXCWHAT)»20) 00427000 @ 
{ ‘ EEN eae i 
COPYCLBUFFL7J*HEXCIF BOOLEANCWHAT.£35%1]) THEN WHAT,.[38!10) 00429000 ( 
ELSE WHATs (36812) )e1)5 00430000 “@ 
NO 3 : ¢ 000 Oe ts De ee PAE Eh es a 
% 00432000 : 
% 00433000 @ 
x OPYTEXT MOVES SZ WORDS (7 CHAR/WORD) FROM SOUR 00434000 _ ete 
% TO DEXT. - 00435000 
x | 00436000 
STREAM PROCEDURE COPYTEXTCUEST»SOURCE,S/)3 00437000 _ eee ” 
VALUE SZ3 00438000 
BEGIN 00439000 @ 
2S : H =f) T3 . oe ee ee Pau 
SZ(SItsSIl+13  OSt=7 CHR) 00441000 
ENDS 00442000 ® 
00 00 : osc Band val 
% ee 00444000 7 
% - OOKUP RETURNS INFORMATION ABOUT OPERATION CODE WHAT OF 00445000 @ 
% 00447000 @ 
REAL PROCEDURE LOOKUP(WHATs3SZ)i 00448000 se 
- REAL WHAT» $23 00450000 ..@ 
BEGIN — 00451000 " 
ea : ave 2000 SDR Behr sare A, Sane, fs Re Secany 
RESULTS 00453000 "e 
WORD INDEX L40%a] 00454000 
RO 2 pe, 1c 2! | 00455000 — = ~ " 
$2 | (3493) 00456000 
REGISTERS (1638) 00457000 7 
a is ; OOa5SB000 neon, rks, a 
@ °® 


Data Documents/inc. 


y 5 oS x. TS = x. 55 3 


eo ov 


ONES 
THRE 


TwOs 


x 
% 
if 


x 


REAL SCRATCH} 00459000 
LABEL ONE sTWCe THREE mL eL2ecsoL Ooi lL oLL lob lL 2o LL 3 eoLL4oL LL Lo EXIT 00460000 
SWITCH SSteL1oL 2.430143 00462000 — 
SWITCH SSSts_LiselLigelLL3eLLae 00463000 
0 je Sa ee ee OMAN Oe ety 
LOOKUP t=WHAT+WHAT+ 40963 GU TO EXIT 00465000 
Et LUQKUP#=(2xWHAT « (24281)¢255016:40:8] & (€2)C3423)3 00466000 
a ee OCA 0G. i i a a 
IF SZ:2WHAT,[3228] LSS 48 UR SZ GTR Si THEN 00468000 
LOOKUP $2($Z+452), (4036) & 00469000 
: ‘\raapaSeay @ Ringe Bh eer eee Seas 
CIF 52 GEQ@ 64 THeW 255 ELSE whAT.C4038))C10%40:84j 00471000 
ELSE 00472000 
60 TO SSESZ=47]3 — 00474000 eee 
Lit SC deeb tla Ua aeaa G. (4016) DIV 433 GO TO Lu 00475000 
i NPOTA Riwha $F } . a ) COs 7é&O00 
L38 SCRATCH SSENARRAYI WHAT. [40tal OV 413 GO TO LL; 00477000 
L&& SCRATCKSSFUNARRAYC WHAT? £4038) DIV 4); 00478000 
Hi a 0 N HLA 8 MQ OO47900Q0 _ 4 
“LRLEt SCRATCH ss3x( SCRATCH C1511993 °. GO TO LLL3 00480000 
LL2s SCRATCHI=3x (SCRATCH. C1I2%12] 3° GO TO LLL; 00481000 
3 RA Pte ax¢ SCRA H z i 7 00482000 
LL43 SCRATCHE=3xX(SCRATCH,L 36812) GO TO LLuLs 00483000 
LLL? LOOKUPSSENTIERCSCRATCH MOD 192) 00484000 
__-& (5 AH 2.r373 sioner es eo ee 
. & (€3)£34t4523)3 : 00486000 
“ENDS 00487000 
i tiecialimmmaioit ila “i ___0 O#BBOOO tinned neta in MesteLinhi Se Ad eR git oy > 
END OF LOOKUP; 00489000 
00490000 
: O0 ore 
~ INKIT PRINTS WHaT OF SIZE S52 ACCORDING TO 00492000 
THE INSTRUCTIONS IN FORM, 00493000 
i = HF Pl WHER hE ACTUA N RIA N > DON OO4¢94o000 
00495000 
PROCEDURE i aa 00496000 
nA O4 000 
REAL WHAT» SZ*FORMoLC3 00498000 
TF LISTING THEN 00499000 
PPR IN ON0500000 
INTEGER RSLT3 005014000 
EORey LITsPASS*OPsHEAD.ING» Sete eet ae re eee ses Tor) 00202000 
xX ERAS 0.0 erene 
“SWITCH SSteLisL2>LBeL43 00504000 
‘ 00505000 
‘ t ORM 00566000 
OUTPUTCLBUFFLOJ»HEX(LUC)» 00507000 
IF SZ 8 4 es HEXCWHAT &HEXCWHAT C1698) 01837911) 00508000 
_— FH WHAT) 25 XTARRA a a er a a es 
“60 To PASS} 00510000 
BUTPUTCLBUFF 01 -HEX(LOC) sHEXCHRAT «SZ 00511000 
: { f2| DOKUPCWH : 005 O00 
“RSLT 14038))» RSLTeC34232)3 00513000 
IF RSLT»C1i4:e] # O THEN | 00514000 
i 628 I N PRINTADURES Wt o0s O00 
re ELSE PRINTREGCRSLT,(1628})3 | 00516000. 
i IF ERRORNUNBER = 0 THEN GOTO PASSS 00517000 


A : RUF Eo «* J 


one Lo O00 


i : 
BL 3 = oR ROR aoe : i Be 


i : 
= 3 


4) 
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BB 8 8S RS 


BS 8 3 5 


ae ae 


CLEARLINES 00519000 
ERRS: FOR 1:20 STEP 1 UNTIL ERRORMAX DG 005240000 
B Ea ae a a oe OO OO Oe at lo ee eee hE ay 
IF BOOLEANCERRORNUMBER) TREN 00522000 
BEGIN 00523000 
OPYTEXTCLR Gis XTARRA FRROWsERRBASE+ 00524000 ae tented tee te) is 
ERRSI4ZE)3 00525000 
WRITECLINEs15*L BUFF L*I);3 00326000 
. IF ERRORNUMBERS&ERRURNUMBER DIV 2 * 0 THEN GO TO STOP3 00528000 
ENDs 00529000 
RRORNUMBER3=03_ 00530000 
STOP: CLEARLINES 00331000 
GO TO EXIT; 00532000 
P Ai 2 H 00533000... LAO an eer ete ae ee EA 
»Lit WRITECLINECPAGE))3 GO TO ExIT3 00534000 
L2t WRITECLINECOBLI)3 GO 1G EXIT. 00535000 
A i N a x OL a oe oe es ees = a 
L4s COPYTEXTCLBUFFLOJ»STARSFORM947)3 00537000 
PAQS3 WRITECLINE 1S +L BUFF OC «) 25 00538000 
ARL INE 3 Be OOD 990 OO aa a Se te es 
EXIT: 00540000 
_. END OF INKIT3 00541000 | 
4 Se eens See EON PRE ed ov OOD MOIS 9 25 0 "Yo 9 a RO oe ne een eS OE 
F 4 00543000 
% HEADING TS USED TO PRINT HEADINGS ON GQUTPUT LISTINGS. 00544000 
PROCEDURE HEADING(CA12A29A3%A4eA5)3 00546000 
VALUE Als A22A32A4, A953 00547000 
BEGIN 00549000 
% 00350000 
“OP : “Th f b 005 0.0.0 
INKIT(€02004-0)3 00552000 
2 00553000 
ALD 0 s NG? Seta ___ ON554000 
% 00555000 
& 00536000 
y MO [ i a : NE 
CODE FILE. STUFF OF LENGTN TYPE+1 IS FLACED IN WORD 00558000 
BEGINNING AT BYTE DTYPE,. 00559000 
OOS 60000 
STREAM PROCEDURE MOVECSTUFF sTYP»NORU*DTYPE)S 00561000 
VALUE STUFFsTYPsODTYPE:3 00562000 
- A OO fe () () 
LABEL LirkL2sL3eLaolL Fe O22 D3e 049 DSs D220 044e DE ae Tle T2eT3eF ING 00564000 
SitelLOC STUFF Ne Bae 005365000 
ey TYP 0 
60.T0 Li3 00567000 
GO TO L23 00568000 
0 Q H O0269000 
 SpsaS 1423 GO TO L4s 00570000 
“GLt STtaS] 46) GO Td L43 00571000 
‘L2b Ss 251+5 KP 7H 4 rs. 00572000 
La! SytsS[e+as GO TC LF3 00573000 
L4% SKIP 4 SB3 00574000 
a= 00575000 
OT? ewORO} . 00876000 
CLisCleDTYPE3 00577000 
JG 0. 70D : ‘00578000 


ws = 
ee aie ir if Se EE i 


i 2 
Yas 
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GO TU D2; 00579000 
GN TO 033 00580000 
60.0 se ee ee UA. 
GO TO 053. iy eo 00582000 
DI teD1+63 GO TO 0443 00583000 
Dz a a H . O fh. H 


03% OLss01l +23 GO TO D443 
p4i OLtsD1+4; GO TO OF; 
NS? =f) 


- Ceo ENX Es CODE INX+NUMBER) | gee aso THN “Ne WR: TERECORD; 


00585000 
00386000 


00638000 


SOS AP OO a ee el, , 


Dee: SKIP 2 DB; GO TO OF3 00588000 
ho SKIP 4 OB3 00589000 
DF 3 SA SE 8 es OOOO eee atte a a So ee eh ae 
CI&sC1I+TYP3 00591000 
Go TO Ti3 00592000 
e Q) 0.0 0.0.0 a tie 
40 TO T33 00594000 
= eMte $8 THEN OSte1 SET ELSE ee ts RESET? SeIP 1 $83 GO Te FINS 00595000 
Cee eee S DOSVEOOD 
Tas L6CIF 58 THEN DSte=l SET ELSE ee RESETS “SKIP 1 $B)3 GO To FINS 00597000 
T3! 24CIF SB THEN DSts1 SE] ELSE OSi*1 RESETS SKIP 4 SB)3 GO TO FIN3 00598000 
END OF MOVES 00600000 
ee 00601000 
ae : a : OOGB02000 Rasa etait teas. 8a, de sehy 
% SMASH IS USED BY WRITERECURD TU CLEAN UP THE CODEARRAY 0063000 
% AFTER A RECORD HAS BEEN WHITEN TO DISke 00604000 
STREAM PROCEDURE SMASH(C ArH) 3 00606000 
pPEGIN 00607000 
3 nS WOSS ARS ae eer ORO ROO Oo aoe oe i Oe ee ee, 
eine LIT or SItsBi OS#=56 WOS3 00609000 
END; 00610000 
ereve ovata re ee 
00612000 
WATTERECORO i USEC. TO, WRITE THE CURRENT CODE ARRAY TO 00613000 
r) ij a rif 1k OU paler at 
BEEN PUT In710 “CODE ARRAY SINCE ae LAST CALL ON MRL TERECORD« 00615000 
00616000 
R D AR R ORD O09 OOO ge Sl es Ghat hh Og 
TF CODE INX # 0 THEN ae 00618000 
; BEGIN . . eee” ar 00619000 
LABYTCODEINX:sCODEINX3 ; ee de a a OOO BOO OO nn aa ans ee Oe eae a ae, 
RECOROSS=RECCRUS + 13 00621000 
WRITECCODE » 60sCODEARRAYE#))5 00622000 
Seas ASH ( CODFARRAY(O QUE ARRAY (60))3 00623000 cPesstaih Soe 
ee ~ CODE INxt#IF CODEINX uss 360. THEN. Oo. ELSE CODEINK= 3605 00624000 
me 4 : 00626000 sat, Se ete & 
% 00627000 
x. EMIT COPIES NUMBER BYTES UF ee FROM VAL TO 00628000 
r4 00 -ARRA AND PRINTS A MES. AC ORO N 00629000 ees 
nese ue spas cecaterr ara 00630000 
DURE EMITCVAL NUMBERS TYPD/ 00631000 
VAL» NUMBERS TYP 00632000 ae 
REAL VAL» NUMBER» TYPS 00633000 
IF oes THEN 00634000 
B 00635000 eee 
"MOVER VAL NUNBER= 1» CODE ARBAY [CODEINY ov cae 00636000 
: pond erable MOD 6))5 ~ 00637000 


a 


li 


me 


1244 
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A 5 = Ky 3 


4) 0 2 5 * 


IF LISTING THEN INKITCVALs NUMBER TYP 9 0)3 00639000 
LOC?=LOC+NUMBERS 00640000 
NO ——OO8M1 O00 
ELSE LOCtsLOC+#NUMBERS 00642000 
% 00643000 
j v] Cin bf a : h “RA 6 5 5 ‘4 ry a ‘ : iy Joo Se eae ey 2 
x AT THE PRESENT FOSITION OF LOC, 00645000 
x 00646000 
PR DIRE FM N AN A\ 006 0.00 cat AA 
VALUE NeS$Z3 00648000 
REAL NeSZ3 00649000 
{ ] ~ A or aca RE 
EMITCCREALCNCT BOULEANCN) 2016232) + L)9S5S2sLITPRINT) 00651000 
ELSE 00652000 
M n D be OO04653000.. eed wets 
a 00654000 
4 PUNCHER PUNCHES A BCL DECK IN THE FORM EXPECTED BY THE 00655000 
: * ART) man 00654000 sea aa Pod teh te ie = 
y 4 00657000 
PROCEDURE PUNCHERS 00658000 
ero 09059909 
FILE PUNCH O (€2210)3 00660000 
SAVE ARRAY y(O0#59]-0C0879)]+TEMPLO34)3 00661000 
Nie DOP pp S CRA "Ta" i} 5 ae = re et 
REAL BCC3 00663000 
BOOLEAN TOG; 00664000 
ARE NTQ 3 —_——_—__—§90665909———-— 
ARRAY PUNCHCCDELO#7I3 00666000 
% 00667000 
REAM. PRO orei-a RAN R(SeS OOeN 3 DO44R000 
VALUE SDsDDeN3 00669000 
BEGIN Q¢G670000 
-Tes O06 00 
SKIP SD SB3 00672000 
DIt=p3 00673000 
DD Og aS OOO TUONO. 
% 0006/5000 
NC@C IF SB THEN OSs 1 SET ELSE OS:5 1 RESETS SKIP 1 S$B3)3)3 00676000 
0006/7000 
ENDS 00678000 
x 00679000 
PRE AM FRO DUR INFACK » 00680000 
BEGIN 00681009 
S]t=S;3 00682000 
= Disa) OO Og OO a a a he be ee 
ie - aa 2 00684000 
fe 2040¢ OSt= 7? LIT “OM; DBSt= 3 RESETS Be : 00685000 
: NOS 22 SET OSes R 00686000 
SKIP 1 SBs)3)3)3 00687000 
z 00688000 
ND NONOAGOOO 
x. 00690000 
x rk . 00691000 
oe ITREAM PRO QUR PACK ; 00692000 
BEGIN 00693000 
_ STtzas 00694000 
LD 2 a ee r . 
eae 2C4O(STtsST + 73 OSt= 1 CHRI)3)3 00696000 
oo ENDS 3 | 00697000 


tally 


NS 


40) 
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ae A A ee ee ee 
oh S & & 


SS 8S ees ress 


ry 


ee ah” £22 
cE 


FILL PUNCHCODE( *] WITH " wetan, “SM,OCTLGae "Ota tym, fe: wy, 


CODE .»ARBAS 


5 
Was 


t= 03 


SEARCH(CODEsIC*I)3 


READC CODE 


pelea est teaad 


RECORDS i= Iti] 


OysOrT(*I)5 


IF OP = O THEN 


fy 


OP $= 3s 


TOE OO 
og 


00699000 


00700000 
00 000 


— 00702000 


00703000 
eke Oseke 
00705000 
00706000 


00708000 
00709000 


00711000 
00712000 


0.071 3009. aa, he 


freee ene eee 


IF IP GEG IPL THEN | 
BEGIN 
: bor 6 

IP #= U3 


() =" 5 


IF (RC ts KC +1) 3 RECORDS THEN 


END: 


Duet g nv 6) sENTIER( (8 x IP) MOD 48), 


() 


‘fh Rita x OF) MOD ap 


Seaar cH onines - OP» IPL = IP))3 


IP 38 IP + SCRATCH3 
OP <8 OP + LRA Hy 
LOc #* LOC + SCRATCH: 


READCCODEL 
IP t= IPL t= 3603 
LOC t= 03 
: F) f") i oY 
bo 
BEGIN 
. OP 0 
BEGIN 
ENO 
BEGIN 
ENTR3 


“ND? 


END OF PUNCHERS 


oe 


UNPACK(TEMPsU)3 
a R . A = 0 ; i =) 


BEGIN. 


N\ QO 


BCC ed REAL CNOT BUOLEAN (BCC) EQyv 


B OU 
OLSCRAICH] 


ENDS 
is NOHC Ef 


pA 


PACKCO)3 


KeGs 


ts PUNEROODELELeD Raa eda 
C45:31)5 


WRITECPUNCHs10.064})3° 


aCe $s OF 45 03 
FOR SCRATCH t= 0 STEP 
FOR SCRATCH?=0 STEP 4 


yeeeruen 30 TO ENTRE 


1 UNTIL 79 Da OC SCRATCH) 
UNTIL 4 DO TEMPCSCRATCHI 


END UNTIL RC. RECORDS AND mad Gea TRLS 
IF T0G- a NOT 


RE FORMATS THE OPCODE FOR AN. OPERATOR OF TYPE GP USING 
A AND nf JAS: oe AND 


DEST. WeTONs - 


t= QO3 
t= Qs 


00714000 
00715000 


O07 1 6000. 


00717000 
Gore eee0 
00720000 
00721000 


AOD 
60723000 
0c724000 
0.07. 06 
00726000 
00727000 
O07 28000 
00729000 
pot soodo 

000 
00738000 
00733000 
00. 000 
00735000 
i ee 
Olena 
00738000 
00739000 
00740000 
00741000 
00742000 
00743000 


00744006 


00745000 
00746000 
00747000 
00748000 
00749000 


00730000 


00751000 
00752000... 


00753000 
00734000 


0075500 


00756000 
00757000 


00758000 


a 


Cc) 


to 


o on DO TO F WH = 


ne ee ee A ee 
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5 


B 8 


(x_3 3, 3, 2] y 4, 2 : 


REAL PROCEDURE RECOPsA98)3 
VALUE OPsAsB3 


REAL OP eA» By 


BEGIN 
BEGIN 
FLAG(64)3 


00759000 
00700000 


00762000 
00763000 
ore * OO oO 
00765000 
00766000 


50 $ sn  gazezegg 


END} 
IF B.TYPE # TYPEREGISTER THEN 


FLAG(C64)5 
B:=03 
NO g 
REtSB &@ ALSCr4] g OPL32°8)i 
END OF RE; - 


4 DREDGER ACCEPTS A DESCRIPTORCDE) AND A TYPECFORM) AND 
% RETURNS AN ANURESS. 


REAL PROCEDURE DREDGER(DEsFURM)3 
VALUE DE»FORN: 


CASE FORM OF 


2 LN 


IF DEeTYPE = O THEN DREDGERIELITCDE)e(36212) 


IF DEeTYPE = TYPELABL THEN 
_ TF DEsADDRESS © LABLSLFORMSSDE.LABLINCEX]+¢ADDRESS THEN 
2 N. 
IF DEsSECTOR USS 4 THEN 
DREDGERtS(1F DE,ADDRESS # bea aaeeas 
ALADDRESS mip ty 
Dee f36%?12] ELSE (LABLUSE(FORMI< 


00768000 
007699000 


00771000 
00772000 
00773000 
00774000 
00775000 
007746000 


00777000 
00778000 


00760000 
00781000 


00783000 
00784000 


007ad6000 
00787000 
ore BRAOOO 
00789000 
00790000 
OO0721000 
00792000 
00793000 
00794000 
00795000 


PFRYSICALAODRESS),£363121)00796000 


o 


IF DE.SECTOR = LOC,033:25) aNO LOC.(40%8) #4 255 THEN 
CREDGER?S4096 + (LABLUSEIDE,LABLINDEX) 
: RES 


ELSE 
BEGIN 
DRE DGERSS7 108 DE, B 113 
LOlsFORM) #3 {Cie FORM] & CLI CSECTORUSEMASKS1#133 
ENC: ‘“ 
ND - 
ELSE 
BEGIN 
CRMS=H ADDRESS"LAR C) ABL INOF X ADDF a 
IF CAUNK PSL ABLUSECDE sLABL INDEX), PHYSICALADDRESS) 
+ FORM < 4096 THEN 
ORED 
ELSE 
IF CJUNK + unnas C3325) = LOCel33%5) THEN 
ee PRES 
ELSE FLAG(S12)3 
ENO 


00 | ore 
007468000 
00799000 


00801000 
00802000 

OB 000 
00804000 
00805000 
COROBDOO 
00807000 
00808000 
00809000 
00810000 
00811000 


OOBA2Z000 


00813000 
00814000 


eet ROS! 02 ut 2 2 oT af 2 eae ee ee ee Pe 


BR Wo dt 0. 01 0s Se aR ere rt ee eT 


eee BONG 


00816000 
00817000 


DOBLBOOO 


r ee ee @ °& 
IF DEsTYPE = USEIT THEN DREUGER!#®p£.036!12) ELSE 00819000 
e IF DE + TYPE # TYPELABLERROR THEN FLAGC2) ELSE 00620000 e 
BOOLEAN DE REN FLAG CE Se AG fe OBE OOO . 
% ~ 00822000 @ 
@:: eee |g = TYPELABL THEN 00823000 
BEGIN 00625000 ' e 
@): IF DEsSECTOR LSS 4 THEN 00626000 | 
LABLUSELDE eLABLINDEX], 00828000 ani 
@: PHYSICALADORESS).C36#12] 00829000 e 
IF DE+SECTOR = LOC.L33!5) AND LOCe[40!6] ¢ 255 THEN 00831000 ee 
eo. DREDGER#=4096 + CLABLUSELUE.LABLINDEX) 00632000 e 
Lp 1 f\ A aed LS i * : ée ( O8 3 3000 a Z ea ae a te tea Sd z 
ELSE a ete a 00834000 a 
e BEGIN | : 00835000 @ 
OR R " DAB DF RF 10 OOBR 34000 edie ne 
LtiseDE eC ABLINDEX] $2 LL1*DEsLABLINDEX]) & 00837000 nu 
6 CLI CSECTURUSEMASKS:4781]3 00838000 »@ 
Ent oT 00840000 : 
° 00841000 -@ 
: A A . : : DOB 42000 ORO EES dan : ‘ 
& P FORMS SDE. ADDRESS"LABLSLUE eLABLINDEX] eADDRESS3 00843000 ee 
26 IF CJUNK § =LABLUSECDE sLAGLINDEX]«PHYSICAL ADDRESS) 00844000 
g 2 00.8 N00 ete Sina AM, se) 
. r DREDGERI = JUNKSEGRN 00846000 . 
2 OF ELSE : 00847000 fn 
Q ig " Nae ana” 3.3 aS 23. He A HOB UBROOD oe i 
ie DREOGERS=. 4096 + (JUNK + FORM).£36210] 00849000 ii 
i ELSE BEGIN II t= PRECISLUN3 PRECISION t= 23 00850000 @ 
‘ KR is oH + NE» ADDE 3 NO BS1000 eam a 
PRECISION eee: END} 00852000 @ 
@ END 00853000 | 
: : in OOB 54000 eaten ihe Teas ah 
IF DEsTYPE x TYPELABLERROR THEN FLAGC2) ELSE 004855000 
© IF BOULEANCDE) TREN FLAG(1) ELSE FLAG(4)3 00456000 @ 
OO08S5S7000 “et tus tio: ; 
IF O&eTYPE # TYPELABL THEN 00858000 
er OREDGERT=(LABLUSELDEs{ ABLINDEX I. PHYSICALADDRESS) 00859000 @ 
9 NE. ADO AB BAL INDE x AODR ; NO OOBSD0N0 ee also Thee "| 
ELSE DEsADDRESS “ PRR CetoE. LABLINDEX) » ADDRESS) 00861000 av 
@ ELSE 00862000 8 
= a DREDGE ite = B 0086 ; 000 eee as, 
OTF DES TYPE. x TYPELABLERROR THEN eecatas ELSE 00864000 I 
@\ IF BOOLEANCDE) THEN FLAGCL) ELSE FLAGCA)} 00865000 4 @ 
NDOB446000 SS hes . etl 
IF DE.»TYPE = TYPELABL TWEN 00467000 In 
eo" IF DE.SECTOR = 0 THEN 00868000 @ 
8 Tae 00869000 53 4 
nie DREDGERS 36144 + CLABLUSELDEsLABLINDEX) 00870000 
@r sEHYSICAL ADDRESS) « T3810) 4 00871000 \@ 
mie ue : A FHL OE OE «lL ABLINDEX ANDRESS 3008 000 Peers a et 
ee END 00873000 
di ELSE FLAG(512) 00874000 °@ 
rae 00875000 a asP 
Bee : 1F DEeTYPE = 0 THEN eae. 00876000 ‘ 
oF . peer DREDGERM=6144 + DEsC98t1O2 pucerToce leg 
) @ 
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BS 


3, 4, é o -, ; ; 


36 RE SR SSE 


> ae ve 


is 8 


FLAGC32);3 


a a LAB anam 
IF DE. SECTOR = 0 THEN 
DREDGER is ide + SEACCUSELUE SL ABE INDEX 


DE. VADURESS - LABLSIDE. LABLINDEX] «ADDRESS 
ELSE IF DE.SECTOR = LOC. (33%5] ee ‘LOC. 04038) # 255 THEN 
Os BS 4 a = 
-PHYSICALADDRESS), L38210] + 
DEsADDRESS = LABLSCDE.LABLINDEX]eADDRESS 


00879000 
00880000 


00882000 
00883000 


00885000 
00886000 


00888000 
00889000 


———_ 0880000 


BEGIN 
DREODGER s= 7168 + DEs«ADDKRESS + 23- 
END 
ELSE 
¥ Pe os 0 al a 
BEGIN 
IF DE.sAQDRESS § 1023 THEN 
REF OGESR 4 fy i . A 
ELSE FLAG(512)3 
END 


IF DE e TYPE # TYPELABLERRURK THEN FLAGC2) ELSE 
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: NOVA R . 01034000 
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% 01071000 
01072000 e 
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OSt= $2 WOS3 01084000 @ 
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BEGIN 
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END 
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NKi 5 R_ JUNK ePHYSTCALADORESS < 96 THEN 0119900 = ile Wicsaihe gS 
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e “PROCEDURE FINALLYS 01232000 
BEGIN neat. sae 
| 01254000 
So eee 
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y racer 2 % - a . Ms “ 
FOR T1380 STEP 1 UNTIL 5 DO oe oe wo 20598260 
PR MO DP) £ O THEN METI] 2= MCTT) + Cee) x USED 20598270 
emened 13 an 28 OOP 3 i ; : O5989R0 Bas 
% 20998290 
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% 40464480 
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40503000 
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4C5C6000 
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ae a . 40509000 
PROCEDURE SPOSTORAGE3 40510000 
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ABL CSPr OWN : Q5 O00 eee ee re iS 
HEADING ("SPOUT C's "OUNT "s02022)3 40515000 
08100)3 Seed 40516000 
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LABL(CSPOUTLABEL)3 40330000 
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405333000 
LABL(SPOPOINTER) 5 40538000 2 
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DS2(0)5 40240000 
p 4 40541000 
ABL CK p : sae 0242006 — 
: HEADINGC™NEXT SP"s Ont "sQeQ02)4 40543000 
DACSPOTABLE)3 . 40544000 
40545000 inte 
LABL(PUTSPOUT)3 40346000 
HEADINGC™PUT SPOS "UT ",05092)5 40547000 
DACSP AB H dO ne ee 
: 40549000 
LABLCCHARD} 40350000 _ 
ADING( "CHAR 50 Q 40551000 pee eu tstte a e 
DS1(0)5 40552000 
2 40253000 
Coe 0965000 eee ee 
A ABL-CKEYINBQINTER D3 40566000 
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% 40969000 
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BEGIN 40981000 
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pee NS a ra te MOG OO a 
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40267000 
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B A a a OS Gh ee el Se a 
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~~ LORDCPRECISIONCON)S eee 
BP PP RB 2 |? i ee ee ee 
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BEGIN LOADX(ZZ)3 BTOCCPWRITEDS ENDS; 45007100 


e rg ts Eee e e 
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. LOADCCPTEMP2)3 7 45036700 : 
A TOC2D)3 45036800 
3 : A “ : 1346900 fe 
3 LUADCCPTEMP); 45037000 
30 IBE3 45037100 
of 46 5037200 ee oat ae 
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we LOAD(31)3 45143000 “4 
Cap bs SUB(64)3 45144000 @ 
ih SANS 45145000 2 4 
GOTOCLOC46)3 7 45146000 Ce 
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SENCCPREADY )3 45189100 
GOTOCCPNOTREADY)3 45189200 
N NAB it by by PT)y er ce nen 
FUNCCPINITIATE)3 45191000 
GOTOIN@CPUNCRKCHECKER)3 45192000 
— ~—_—- 45193009 —. -~ 
LABLCCPFETCH); 451493100 
HEADINGC"™CPFETCH» 0202001 )3 45193110 
DS. ee a eee ome een ae oa RETO 12S O° > 0 (0 ce ee ee 
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: I a a En Se ee 
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SUBCDESCENDCFPUNCHBUFFER))3 45193170 
vy A613, 8o 
GOTOCLOC4+6); 45193190 
Bee ce (RR ar PUNCHBUEEER?! 45193200 
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LOADXCO)s 45193220 
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Ree 45293250 
LABLCCPNOTREADY)3 45194000 
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SPls 45196900 
SPOUTCCPNR)3 45197000 
D4 5 800 
: LOADCLOCKBIT)3 45199000 
scene ATUS)} 45200000 
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45202000 
LABLCCPLOCKED); 45203000 
HE ADTN wep ork, ec cr) 0) 0.00 
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- SANN}- 45206000 
GOTH OCKENDS 207000 uae 
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“GASLCCPLOCKED2 3 a 45215000 
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GOTOINOCPUNCHCHECKER)# 45218000 
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: PE : a emt ea 
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PRUCEDURE PUNCHSTORAGES 45229000 
BEGIN 45230000 
REA SEGMENTS rae 52. Ses eons 
% ere 45232000 
LABLCCPSTATUS)3 45233000 
HEADINGCMCP STAT, "US 020 ; 45234000 
pS1(0)3 45235000 
% 45236000 
fa a N HC OUR H ‘ er Lx 
HEADINGC™PUNCH Cs. "QUNT "s0s092)3 45238000 
DS1¢0)3 45239000 
LABL(PC2)3 45241000 
HEADING("PC2 ",8200Ust)3 45242000 
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% 2 x 45244000 
LABLCCPTEMP 3 45245000 
ine Mie ATL YA "CR "MPM. Oe f) SO00 BI ia Ne ees een ne ET We 
DS4(0)3 45247000 
x 45247100 
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% 45247400 
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END OF PUNCH STORAGE; 45257000 
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BEGIN i 45264000 
AL ARRA 6 s626$000. 
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FOR SEGMENT t# 0 STEP 1 UNTIL 39 DO 084(0)3 45270000 
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IF BCLPUNCHTOG OR NOT BOOLEANCPUNCHDEFAULT) THEN 45271100 
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